home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / PERL / UNTESTED / H2PL / TCBREAK < prev    next >
Text File  |  1991-04-28  |  179b  |  18 lines
  1. #!/usr/bin/perl
  2.  
  3. require 'cbreak.pl';
  4.  
  5. &cbreak;
  6.  
  7. $| = 1;
  8.  
  9. print "gimme a char: ";
  10.  
  11. $c = getc;
  12.  
  13. print "$c\n";
  14.  
  15. printf "you gave me `%s', which is 0x%02x\n", $c, ord($c);
  16.  
  17. &cooked;
  18.